home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / mhis020.zip / CALLHDR.MEX < prev    next >
Text File  |  1996-12-21  |  677b  |  31 lines
  1. #include <max.mh>
  2. #include "callers.mh"
  3.  
  4. int main () {
  5.   long: calls;
  6.  
  7.   read_callers ();
  8.   call_open ();
  9.   calls := call_numrecs ();
  10.   call_close ();
  11.  
  12.   print (COL_GRAY, "\n\nMaxHistory v0.20", COL_YELLOW, " - ",
  13.         COL_GRAY, "(C) 1996 Stefan Xenos", COL_YELLOW, " - ",
  14.         COL_GRAY, "A Maximus statistics utility\n");
  15.  
  16.   print ("\n", COL_MAGENTA, "Call ", COL_LMAGENTA, callers.index,
  17.     COL_MAGENTA, " of ", COL_LMAGENTA, calls);
  18.  
  19.   print (COL_MAGENTA + ". Currently listing ");
  20.  
  21.   if (callers.forward_search) {
  22.     print (COL_LMAGENTA + "FORWARD");
  23.     }
  24.   else {
  25.     print (COL_LMAGENTA + "BACKWARD");
  26.     };
  27.  
  28.   print ("\n");
  29.   }
  30.  
  31.